/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / lpr.elc.z / lpr.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 68 75 20 | 4a 61 6e 20 31 38 20 30 | on Thu |Jan 18 0|
|00000040| 31 3a 35 37 3a 30 32 20 | 31 39 39 36 0a 3b 3b 3b |1:57:02 |1996.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 6c 70 72 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |sp/lpr.e|l.;;; em|
|00000080| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 39 2e 33 |acs vers|ion 19.3|
|00000090| 30 2e 37 30 2e 37 2e 0a | 3b 3b 3b 20 62 79 74 65 |0.70.7..|;;; byte|
|000000a0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 46 53 46 |comp ver|sion FSF|
|000000b0| 20 32 2e 31 30 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 | 2.10.;;|; optimi|
|000000c0| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|000000d0| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|000000e0| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|000000f0| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000100| 6d 61 63 73 20 31 38 2e | 0a 0a 28 69 66 20 28 61 |macs 18.|..(if (a|
|00000110| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000120| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000130| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000140| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|00000150| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|00000160| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|00000170| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|00000180| 20 22 31 39 2e 32 39 22 | 29 29 29 0a 20 20 20 20 | "19.29"|))).    |
|00000190| 28 65 72 72 6f 72 20 22 | 60 6c 70 72 2e 65 6c 27 |(error "|`lpr.el'|
|000001a0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001b0| 72 20 45 6d 61 63 73 20 | 31 39 2e 32 39 20 6f 72 |r Emacs |19.29 or|
|000001c0| 20 6c 61 74 65 72 22 29 | 29 0a 0a 0a 23 40 38 37 | later")|)...#@87|
|000001d0| 20 2a 4c 69 73 74 20 6f | 66 20 73 74 72 69 6e 67 | *List o|f string|
|000001e0| 73 20 74 6f 20 70 61 73 | 73 20 61 73 20 65 78 74 |s to pas|s as ext|
|000001f0| 72 61 20 6f 70 74 69 6f | 6e 73 20 66 6f 72 20 74 |ra optio|ns for t|
|00000200| 68 65 20 70 72 69 6e 74 | 65 72 20 70 72 6f 67 72 |he print|er progr|
|00000210| 61 6d 2e 0a 53 65 65 20 | 60 6c 70 72 2d 63 6f 6d |am..See |`lpr-com|
|00000220| 6d 61 6e 64 27 2e 1f 0a | 28 64 65 66 76 61 72 20 |mand'...|(defvar |
|00000230| 6c 70 72 2d 73 77 69 74 | 63 68 65 73 20 6e 69 6c |lpr-swit|ches nil|
|00000240| 20 28 23 24 20 2e 20 2d | 34 36 35 29 29 0a 23 40 | (#$ . -|465)).#@|
|00000250| 32 30 37 20 2a 4e 6f 6e | 2d 6e 69 6c 20 6d 65 61 |207 *Non|-nil mea|
|00000260| 6e 73 20 63 6f 6e 73 74 | 72 75 63 74 20 2d 54 20 |ns const|ruct -T |
|00000270| 61 6e 64 20 2d 4a 20 6f | 70 74 69 6f 6e 73 20 66 |and -J o|ptions f|
|00000280| 6f 72 20 74 68 65 20 70 | 72 69 6e 74 65 72 20 70 |or the p|rinter p|
|00000290| 72 6f 67 72 61 6d 2e 0a | 54 68 65 73 65 20 61 72 |rogram..|These ar|
|000002a0| 65 20 6d 61 64 65 20 61 | 73 73 75 6d 69 6e 67 20 |e made a|ssuming |
|000002b0| 74 68 61 74 20 74 68 65 | 20 70 72 6f 67 72 61 6d |that the| program|
|000002c0| 20 69 73 20 60 6c 70 72 | 27 3b 0a 69 66 20 79 6f | is `lpr|';.if yo|
|000002d0| 75 20 61 72 65 20 75 73 | 69 6e 67 20 73 6f 6d 65 |u are us|ing some|
|000002e0| 20 6f 74 68 65 72 20 69 | 6e 63 6f 6d 70 61 74 69 | other i|ncompati|
|000002f0| 62 6c 65 20 70 72 69 6e | 74 65 72 20 70 72 6f 67 |ble prin|ter prog|
|00000300| 72 61 6d 2c 0a 74 68 69 | 73 20 76 61 72 69 61 62 |ram,.thi|s variab|
|00000310| 6c 65 20 73 68 6f 75 6c | 64 20 62 65 20 6e 69 6c |le shoul|d be nil|
|00000320| 2e 1f 0a 28 64 65 66 76 | 61 72 20 6c 70 72 2d 61 |...(defv|ar lpr-a|
|00000330| 64 64 2d 73 77 69 74 63 | 68 65 73 20 28 65 71 20 |dd-switc|hes (eq |
|00000340| 73 79 73 74 65 6d 2d 74 | 79 70 65 20 28 71 75 6f |system-t|ype (quo|
|00000350| 74 65 20 62 65 72 6b 65 | 6c 65 79 2d 75 6e 69 78 |te berke|ley-unix|
|00000360| 29 29 20 28 23 24 20 2e | 20 2d 35 39 36 29 29 0a |)) (#$ .| -596)).|
|00000370| 23 40 33 39 20 2a 4e 61 | 6d 65 20 6f 66 20 70 72 |#@39 *Na|me of pr|
|00000380| 6f 67 72 61 6d 20 66 6f | 72 20 70 72 69 6e 74 69 |ogram fo|r printi|
|00000390| 6e 67 20 61 20 66 69 6c | 65 2e 1f 0a 28 64 65 66 |ng a fil|e...(def|
|000003a0| 76 61 72 20 6c 70 72 2d | 63 6f 6d 6d 61 6e 64 20 |var lpr-|command |
|000003b0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 c1 3e 83 |(byte-co|de "..>.|
|000003c0| 08 00 c2 87 c3 87 22 20 | 5b 73 79 73 74 65 6d 2d |......" |[system-|
|000003d0| 74 79 70 65 20 28 75 73 | 67 2d 75 6e 69 78 2d 76 |type (us|g-unix-v|
|000003e0| 20 64 67 75 78 20 68 70 | 75 78 20 69 72 69 78 29 | dgux hp|ux irix)|
|000003f0| 20 22 6c 70 22 20 22 6c | 70 72 22 5d 20 32 29 20 | "lp" "l|pr"] 2) |
|00000400| 28 23 24 20 2e 20 2d 38 | 38 35 29 29 0a 23 40 31 |(#$ . -8|85)).#@1|
|00000410| 36 33 20 2a 4c 69 73 74 | 20 6f 66 20 73 74 72 69 |63 *List| of stri|
|00000420| 6e 67 73 20 6f 66 20 6f | 70 74 69 6f 6e 73 20 74 |ngs of o|ptions t|
|00000430| 6f 20 72 65 71 75 65 73 | 74 20 70 61 67 65 20 68 |o reques|t page h|
|00000440| 65 61 64 69 6e 67 73 20 | 69 6e 20 74 68 65 20 70 |eadings |in the p|
|00000450| 72 69 6e 74 65 72 20 70 | 72 6f 67 72 61 6d 2e 0a |rinter p|rogram..|
|00000460| 49 66 20 6e 69 6c 2c 20 | 77 65 20 72 75 6e 20 60 |If nil, |we run `|
|00000470| 6c 70 72 2d 70 61 67 65 | 2d 68 65 61 64 65 72 2d |lpr-page|-header-|
|00000480| 70 72 6f 67 72 61 6d 27 | 20 74 6f 20 6d 61 6b 65 |program'| to make|
|00000490| 20 70 61 67 65 20 68 65 | 61 64 69 6e 67 73 0a 61 | page he|adings.a|
|000004a0| 6e 64 20 70 72 69 6e 74 | 20 74 68 65 20 72 65 73 |nd print| the res|
|000004b0| 75 6c 74 2e 1f 0a 28 64 | 65 66 76 61 72 20 6c 70 |ult...(d|efvar lp|
|000004c0| 72 2d 68 65 61 64 65 72 | 73 2d 73 77 69 74 63 68 |r-header|s-switch|
|000004d0| 65 73 20 6e 69 6c 20 28 | 23 24 20 2e 20 2d 31 30 |es nil (|#$ . -10|
|000004e0| 34 33 29 29 0a 23 40 31 | 31 32 20 46 75 6e 63 74 |43)).#@1|12 Funct|
|000004f0| 69 6f 6e 20 74 6f 20 63 | 61 6c 6c 20 74 6f 20 70 |ion to c|all to p|
|00000500| 72 69 6e 74 20 74 68 65 | 20 72 65 67 69 6f 6e 20 |rint the| region |
|00000510| 6f 6e 20 61 20 70 72 69 | 6e 74 65 72 2e 0a 53 65 |on a pri|nter..Se|
|00000520| 65 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 6f 66 20 |e defini|tion of |
|00000530| 60 70 72 69 6e 74 2d 72 | 65 67 69 6f 6e 2d 31 27 |`print-r|egion-1'|
|00000540| 20 66 6f 72 20 63 61 6c | 6c 69 6e 67 20 63 6f 6e | for cal|ling con|
|00000550| 76 65 6e 74 69 6f 6e 73 | 2e 1f 0a 28 64 65 66 76 |ventions|...(defv|
|00000560| 61 72 20 70 72 69 6e 74 | 2d 72 65 67 69 6f 6e 2d |ar print|-region-|
|00000570| 66 75 6e 63 74 69 6f 6e | 20 6e 69 6c 20 28 23 24 |function| nil (#$|
|00000580| 20 2e 20 31 32 35 39 29 | 29 0a 23 40 35 33 20 2a | . 1259)|).#@53 *|
|00000590| 4e 61 6d 65 20 6f 66 20 | 70 72 6f 67 72 61 6d 20 |Name of |program |
|000005a0| 66 6f 72 20 61 64 64 69 | 6e 67 20 70 61 67 65 20 |for addi|ng page |
|000005b0| 68 65 61 64 65 72 73 20 | 74 6f 20 61 20 66 69 6c |headers |to a fil|
|000005c0| 65 2e 1f 0a 28 64 65 66 | 76 61 72 20 6c 70 72 2d |e...(def|var lpr-|
|000005d0| 70 61 67 65 2d 68 65 61 | 64 65 72 2d 70 72 6f 67 |page-hea|der-prog|
|000005e0| 72 61 6d 20 22 70 72 22 | 20 28 23 24 20 2e 20 2d |ram "pr"| (#$ . -|
|000005f0| 31 34 32 33 29 29 0a 23 | 40 31 34 35 20 2a 4c 69 |1423)).#|@145 *Li|
|00000600| 73 74 20 6f 66 20 73 74 | 72 69 6e 67 73 20 74 6f |st of st|rings to|
|00000610| 20 75 73 65 20 61 73 20 | 6f 70 74 69 6f 6e 73 20 | use as |options |
|00000620| 66 6f 72 20 74 68 65 20 | 70 61 67 65 2d 68 65 61 |for the |page-hea|
|00000630| 64 65 72 2d 67 65 6e 65 | 72 61 74 69 6e 67 20 70 |der-gene|rating p|
|00000640| 72 6f 67 72 61 6d 2e 0a | 54 68 65 20 76 61 72 69 |rogram..|The vari|
|00000650| 61 62 6c 65 20 60 6c 70 | 72 2d 70 61 67 65 2d 68 |able `lp|r-page-h|
|00000660| 65 61 64 65 72 2d 70 72 | 6f 67 72 61 6d 27 20 73 |eader-pr|ogram' s|
|00000670| 70 65 63 69 66 69 65 73 | 20 74 68 65 20 70 72 6f |pecifies| the pro|
|00000680| 67 72 61 6d 20 74 6f 20 | 75 73 65 2e 1f 0a 28 64 |gram to |use...(d|
|00000690| 65 66 76 61 72 20 6c 70 | 72 2d 70 61 67 65 2d 68 |efvar lp|r-page-h|
|000006a0| 65 61 64 65 72 2d 73 77 | 69 74 63 68 65 73 20 28 |eader-sw|itches (|
|000006b0| 71 75 6f 74 65 20 28 22 | 2d 66 22 29 29 20 28 23 |quote ("|-f")) (#|
|000006c0| 24 20 2e 20 2d 31 35 33 | 33 29 29 0a 23 40 31 32 |$ . -153|3)).#@12|
|000006d0| 30 20 50 72 69 6e 74 20 | 62 75 66 66 65 72 20 63 |0 Print |buffer c|
|000006e0| 6f 6e 74 65 6e 74 73 20 | 61 73 20 77 69 74 68 20 |ontents |as with |
|000006f0| 55 6e 69 78 20 63 6f 6d | 6d 61 6e 64 20 60 6c 70 |Unix com|mand `lp|
|00000700| 72 27 2e 0a 60 6c 70 72 | 2d 73 77 69 74 63 68 65 |r'..`lpr|-switche|
|00000710| 73 27 20 69 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |s' is a |list of |
|00000720| 65 78 74 72 61 20 73 77 | 69 74 63 68 65 73 20 28 |extra sw|itches (|
|00000730| 73 74 72 69 6e 67 73 29 | 20 74 6f 20 70 61 73 73 |strings)| to pass|
|00000740| 20 74 6f 20 6c 70 72 2e | 1f 0a 28 64 65 66 61 6c | to lpr.|..(defal|
|00000750| 69 61 73 20 27 6c 70 72 | 2d 62 75 66 66 65 72 20 |ias 'lpr|-buffer |
|00000760| 23 5b 6e 69 6c 20 22 c0 | 65 64 09 c2 24 87 22 20 |#[nil ".|ed..$." |
|00000770| 5b 70 72 69 6e 74 2d 72 | 65 67 69 6f 6e 2d 31 20 |[print-r|egion-1 |
|00000780| 6c 70 72 2d 73 77 69 74 | 63 68 65 73 20 6e 69 6c |lpr-swit|ches nil|
|00000790| 5d 20 35 20 28 23 24 20 | 2e 20 31 37 34 36 29 20 |] 5 (#$ |. 1746) |
|000007a0| 6e 69 6c 5d 29 0a 23 40 | 31 32 33 20 50 72 69 6e |nil]).#@|123 Prin|
|000007b0| 74 20 62 75 66 66 65 72 | 20 63 6f 6e 74 65 6e 74 |t buffer| content|
|000007c0| 73 20 61 73 20 77 69 74 | 68 20 55 6e 69 78 20 63 |s as wit|h Unix c|
|000007d0| 6f 6d 6d 61 6e 64 20 60 | 6c 70 72 20 2d 70 27 2e |ommand `|lpr -p'.|
|000007e0| 0a 60 6c 70 72 2d 73 77 | 69 74 63 68 65 73 27 20 |.`lpr-sw|itches' |
|000007f0| 69 73 20 61 20 6c 69 73 | 74 20 6f 66 20 65 78 74 |is a lis|t of ext|
|00000800| 72 61 20 73 77 69 74 63 | 68 65 73 20 28 73 74 72 |ra switc|hes (str|
|00000810| 69 6e 67 73 29 20 74 6f | 20 70 61 73 73 20 74 6f |ings) to| pass to|
|00000820| 20 6c 70 72 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 | lpr...(|defalias|
|00000830| 20 27 70 72 69 6e 74 2d | 62 75 66 66 65 72 20 23 | 'print-|buffer #|
|00000840| 5b 6e 69 6c 20 22 c0 65 | 64 09 c2 24 87 22 20 5b |[nil ".e|d..$." [|
|00000850| 70 72 69 6e 74 2d 72 65 | 67 69 6f 6e 2d 31 20 6c |print-re|gion-1 l|
|00000860| 70 72 2d 73 77 69 74 63 | 68 65 73 20 74 5d 20 35 |pr-switc|hes t] 5|
|00000870| 20 28 23 24 20 2e 20 31 | 39 36 34 29 20 6e 69 6c | (#$ . 1|964) nil|
|00000880| 5d 29 0a 23 40 31 32 30 | 20 50 72 69 6e 74 20 72 |]).#@120| Print r|
|00000890| 65 67 69 6f 6e 20 63 6f | 6e 74 65 6e 74 73 20 61 |egion co|ntents a|
|000008a0| 73 20 77 69 74 68 20 55 | 6e 69 78 20 63 6f 6d 6d |s with U|nix comm|
|000008b0| 61 6e 64 20 60 6c 70 72 | 27 2e 0a 60 6c 70 72 2d |and `lpr|'..`lpr-|
|000008c0| 73 77 69 74 63 68 65 73 | 27 20 69 73 20 61 20 6c |switches|' is a l|
|000008d0| 69 73 74 20 6f 66 20 65 | 78 74 72 61 20 73 77 69 |ist of e|xtra swi|
|000008e0| 74 63 68 65 73 20 28 73 | 74 72 69 6e 67 73 29 20 |tches (s|trings) |
|000008f0| 74 6f 20 70 61 73 73 20 | 74 6f 20 6c 70 72 2e 1f |to pass |to lpr..|
|00000900| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6c 70 72 2d |.(defali|as 'lpr-|
|00000910| 72 65 67 69 6f 6e 20 23 | 5b 28 73 74 61 72 74 20 |region #|[(start |
|00000920| 65 6e 64 29 20 22 c0 09 | 5c 6e 0b c4 24 87 22 20 |end) "..|\n..$." |
|00000930| 5b 70 72 69 6e 74 2d 72 | 65 67 69 6f 6e 2d 31 20 |[print-r|egion-1 |
|00000940| 73 74 61 72 74 20 65 6e | 64 20 6c 70 72 2d 73 77 |start en|d lpr-sw|
|00000950| 69 74 63 68 65 73 20 6e | 69 6c 5d 20 35 20 28 23 |itches n|il] 5 (#|
|00000960| 24 20 2e 20 32 31 38 35 | 29 20 22 72 22 5d 29 0a |$ . 2185|) "r"]).|
|00000970| 23 40 31 32 33 20 50 72 | 69 6e 74 20 72 65 67 69 |#@123 Pr|int regi|
|00000980| 6f 6e 20 63 6f 6e 74 65 | 6e 74 73 20 61 73 20 77 |on conte|nts as w|
|00000990| 69 74 68 20 55 6e 69 78 | 20 63 6f 6d 6d 61 6e 64 |ith Unix| command|
|000009a0| 20 60 6c 70 72 20 2d 70 | 27 2e 0a 60 6c 70 72 2d | `lpr -p|'..`lpr-|
|000009b0| 73 77 69 74 63 68 65 73 | 27 20 69 73 20 61 20 6c |switches|' is a l|
|000009c0| 69 73 74 20 6f 66 20 65 | 78 74 72 61 20 73 77 69 |ist of e|xtra swi|
|000009d0| 74 63 68 65 73 20 28 73 | 74 72 69 6e 67 73 29 20 |tches (s|trings) |
|000009e0| 74 6f 20 70 61 73 73 20 | 74 6f 20 6c 70 72 2e 1f |to pass |to lpr..|
|000009f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 72 69 6e |.(defali|as 'prin|
|00000a00| 74 2d 72 65 67 69 6f 6e | 20 23 5b 28 73 74 61 72 |t-region| #[(star|
|00000a10| 74 20 65 6e 64 29 20 22 | c0 09 5c 6e 0b c4 24 87 |t end) "|..\n..$.|
|00000a20| 22 20 5b 70 72 69 6e 74 | 2d 72 65 67 69 6f 6e 2d |" [print|-region-|
|00000a30| 31 20 73 74 61 72 74 20 | 65 6e 64 20 6c 70 72 2d |1 start |end lpr-|
|00000a40| 73 77 69 74 63 68 65 73 | 20 74 5d 20 35 20 28 23 |switches| t] 5 (#|
|00000a50| 24 20 2e 20 32 34 32 32 | 29 20 22 72 22 5d 29 0a |$ . 2422|) "r"]).|
|00000a60| 28 64 65 66 61 6c 69 61 | 73 20 27 70 72 69 6e 74 |(defalia|s 'print|
|00000a70| 2d 72 65 67 69 6f 6e 2d | 31 20 23 5b 28 73 74 61 |-region-|1 #[(sta|
|00000a80| 72 74 20 65 6e 64 20 73 | 77 69 74 63 68 65 73 20 |rt end s|witches |
|00000a90| 70 61 67 65 2d 68 65 61 | 64 65 72 73 29 20 22 c0 |page-hea|ders) ".|
|00000aa0| 20 c1 50 c0 20 c1 50 5c | 6e 89 0b c4 1d 1e 06 1e | .P. .P\|n.......|
|00000ab0| 07 1e 08 1e 09 1e 5c 6e | 8a 0e 0b 83 36 00 0e 5c |......\n|....6..\|
|00000ac0| 66 83 36 00 cd 0e 5c 66 | 3b 83 2f 00 0e 5c 66 43 |f.6...\f|;./..\fC|
|00000ad0| 82 31 00 0e 5c 66 0e 0e | 5c 22 16 0e 0e 0e 83 46 |.1..\f..|\".....F|
|00000ae0| 00 cf d0 d1 0e 0e d2 23 | 50 82 47 00 d3 15 d4 d5 |.......#|P.G.....|
|00000af0| 0d 5c 22 88 0b d6 55 84 | 77 00 d7 0e 18 0e 19 5c |.\"...U.|w......\|
|00000b00| 22 89 1e 1a 40 16 18 0e | 1a 41 16 19 0e 06 13 8a |"...@...|.A......|
|00000b10| 0e 19 62 88 db 20 16 19 | 29 dc 65 64 5c 22 88 29 |..b.. ..|).ed\".)|
|00000b20| 0e 0b 83 b3 00 0e 5c 66 | 84 b3 00 d7 0e 18 0e 19 |......\f|........|
|00000b30| 5c 22 89 1e 1a 40 16 18 | 0e 1a 41 16 19 29 dd de |\"...@..|..A..)..|
|00000b40| 0e 18 0e 19 0e 1f e0 89 | c4 0e 21 85 a7 00 e2 0e |........|..!.....|
|00000b50| 09 44 0e 23 a4 26 08 88 | 65 16 18 64 16 19 dd 0e |.D.#.&..|e..d....|
|00000b60| 24 86 ba 00 de 0e 18 0e | 19 0e 25 c4 89 89 af 06 |$.......|..%.....|
|00000b70| 0e 21 85 ce 00 e6 0e 5c | 6e 44 0e 21 85 dc 00 0e |.!.....\|nD.!....|
|00000b80| 5c 66 85 dc 00 e7 0e 09 | 44 a4 0e 0e a4 a4 5c 22 |\f......|D.....\"|
|00000b90| 88 e8 0e 19 21 83 f0 00 | 0e 19 c4 89 93 88 d4 e9 |....!...|........|
|00000ba0| 0d 5c 22 2e 07 87 22 20 | 5b 62 75 66 66 65 72 2d |.\"..." |[buffer-|
|00000bb0| 6e 61 6d 65 20 22 20 45 | 6d 61 63 73 20 62 75 66 |name " E|macs buf|
|00000bc0| 66 65 72 22 20 62 75 66 | 66 65 72 2d 66 69 6c 65 |fer" buf|fer-file|
|00000bd0| 2d 74 79 70 65 20 74 61 | 62 2d 77 69 64 74 68 20 |-type ta|b-width |
|00000be0| 6e 69 6c 20 73 77 69 74 | 63 68 2d 73 74 72 69 6e |nil swit|ch-strin|
|00000bf0| 67 20 77 69 64 74 68 20 | 62 69 6e 61 72 79 2d 70 |g width |binary-p|
|00000c00| 72 6f 63 65 73 73 2d 6f | 75 74 70 75 74 20 62 69 |rocess-o|utput bi|
|00000c10| 6e 61 72 79 2d 70 72 6f | 63 65 73 73 2d 69 6e 70 |nary-pro|cess-inp|
|00000c20| 75 74 20 74 69 74 6c 65 | 20 6e 61 6d 65 20 70 61 |ut title| name pa|
|00000c30| 67 65 2d 68 65 61 64 65 | 72 73 20 6c 70 72 2d 68 |ge-heade|rs lpr-h|
|00000c40| 65 61 64 65 72 73 2d 73 | 77 69 74 63 68 65 73 20 |eaders-s|witches |
|00000c50| 61 70 70 65 6e 64 20 73 | 77 69 74 63 68 65 73 20 |append s|witches |
|00000c60| 22 20 77 69 74 68 20 6f | 70 74 69 6f 6e 73 20 22 |" with o|ptions "|
|00000c70| 20 6d 61 70 63 6f 6e 63 | 61 74 20 69 64 65 6e 74 | mapconc|at ident|
|00000c80| 69 74 79 20 22 20 22 20 | 22 22 20 6d 65 73 73 61 |ity " " |"" messa|
|00000c90| 67 65 20 22 53 70 6f 6f | 6c 69 6e 67 25 73 2e 2e |ge "Spoo|ling%s..|
|00000ca0| 2e 22 20 38 20 70 72 69 | 6e 74 2d 72 65 67 69 6f |." 8 pri|nt-regio|
|00000cb0| 6e 2d 6e 65 77 2d 62 75 | 66 66 65 72 20 73 74 61 |n-new-bu|ffer sta|
|00000cc0| 72 74 20 65 6e 64 20 6e | 65 77 2d 63 6f 6f 72 64 |rt end n|ew-coord|
|00000cd0| 73 20 70 6f 69 6e 74 2d | 6d 61 72 6b 65 72 20 75 |s point-|marker u|
|00000ce0| 6e 74 61 62 69 66 79 20 | 61 70 70 6c 79 20 63 61 |ntabify |apply ca|
|00000cf0| 6c 6c 2d 70 72 6f 63 65 | 73 73 2d 72 65 67 69 6f |ll-proce|ss-regio|
|00000d00| 6e 20 6c 70 72 2d 70 61 | 67 65 2d 68 65 61 64 65 |n lpr-pa|ge-heade|
|00000d10| 72 2d 70 72 6f 67 72 61 | 6d 20 74 20 6c 70 72 2d |r-progra|m t lpr-|
|00000d20| 61 64 64 2d 73 77 69 74 | 63 68 65 73 20 22 2d 68 |add-swit|ches "-h|
|00000d30| 22 20 6c 70 72 2d 70 61 | 67 65 2d 68 65 61 64 65 |" lpr-pa|ge-heade|
|00000d40| 72 2d 73 77 69 74 63 68 | 65 73 20 70 72 69 6e 74 |r-switch|es print|
|00000d50| 2d 72 65 67 69 6f 6e 2d | 66 75 6e 63 74 69 6f 6e |-region-|function|
|00000d60| 20 6c 70 72 2d 63 6f 6d | 6d 61 6e 64 20 22 2d 4a | lpr-com|mand "-J|
|00000d70| 22 20 22 2d 54 22 20 6d | 61 72 6b 65 72 70 20 22 |" "-T" m|arkerp "|
|00000d80| 53 70 6f 6f 6c 69 6e 67 | 25 73 2e 2e 2e 64 6f 6e |Spooling|%s...don|
|00000d90| 65 22 5d 20 31 31 5d 29 | 0a 28 64 65 66 61 6c 69 |e"] 11])|.(defali|
|00000da0| 61 73 20 27 70 72 69 6e | 74 2d 72 65 67 69 6f 6e |as 'prin|t-region|
|00000db0| 2d 6e 65 77 2d 62 75 66 | 66 65 72 20 23 5b 28 6f |-new-buf|fer #[(o|
|00000dc0| 73 74 61 72 74 20 6f 65 | 6e 64 29 20 22 c0 20 c1 |start oe|nd) ". .|
|00000dd0| 98 83 0b 00 5c 6e 0b 42 | 87 70 1c c5 c1 21 71 88 |....\n.B|.p...!q.|
|00000de0| 7e 88 c6 20 88 c7 5c 66 | 5c 6e 0b 23 88 65 64 29 |~.. ..\f|\n.#.ed)|
|00000df0| 42 87 22 20 5b 62 75 66 | 66 65 72 2d 6e 61 6d 65 |B." [buf|fer-name|
|00000e00| 20 22 20 2a 73 70 6f 6f | 6c 20 74 65 6d 70 2a 22 | " *spoo|l temp*"|
|00000e10| 20 6f 73 74 61 72 74 20 | 6f 65 6e 64 20 6f 6c 64 | ostart |oend old|
|00000e20| 62 75 66 20 67 65 74 2d | 62 75 66 66 65 72 2d 63 |buf get-|buffer-c|
|00000e30| 72 65 61 74 65 20 65 72 | 61 73 65 2d 62 75 66 66 |reate er|ase-buff|
|00000e40| 65 72 20 69 6e 73 65 72 | 74 2d 62 75 66 66 65 72 |er inser|t-buffer|
|00000e50| 2d 73 75 62 73 74 72 69 | 6e 67 5d 20 34 5d 29 0a |-substri|ng] 4]).|
|00000e60| 23 40 31 35 36 20 54 75 | 72 6e 20 6e 6f 6e 70 72 |#@156 Tu|rn nonpr|
|00000e70| 69 6e 74 69 6e 67 20 63 | 68 61 72 61 63 74 65 72 |inting c|haracter|
|00000e80| 73 20 28 6f 74 68 65 72 | 20 74 68 61 6e 20 54 41 |s (other| than TA|
|00000e90| 42 2c 20 4c 46 2c 20 53 | 50 43 2c 20 52 45 54 2c |B, LF, S|PC, RET,|
|00000ea0| 20 61 6e 64 20 46 46 29 | 0a 69 6e 20 74 68 65 20 | and FF)|.in the |
|00000eb0| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 20 69 |current |buffer i|
|00000ec0| 6e 74 6f 20 70 72 69 6e | 74 61 62 6c 65 20 72 65 |nto prin|table re|
|00000ed0| 70 72 65 73 65 6e 74 61 | 74 69 6f 6e 73 20 61 73 |presenta|tions as|
|00000ee0| 20 63 6f 6e 74 72 6f 6c | 20 6f 72 0a 68 65 78 61 | control| or.hexa|
|00000ef0| 64 65 63 69 6d 61 6c 20 | 65 73 63 61 70 65 73 2e |decimal |escapes.|
|00000f00| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 72 69 |..(defal|ias 'pri|
|00000f10| 6e 74 69 66 79 2d 72 65 | 67 69 6f 6e 20 23 5b 28 |ntify-re|gion #[(|
|00000f20| 62 65 67 69 6e 20 65 6e | 64 29 20 22 8a 08 62 88 |begin en|d) "..b.|
|00000f30| c1 1a c3 c4 0d c6 23 85 | 2c 00 68 12 c7 c8 21 88 |......#.|,.h...!.|
|00000f40| 5c 6e c9 57 83 23 00 ca | cb 5c 6e cc 5c 5c 5c 22 |\n.W.#..|.\n.\\\"|
|00000f50| 82 27 00 ca cd 5c 6e 5c | 22 63 88 82 06 00 2a 87 |.'...\n\|"c....*.|
|00000f60| 22 20 5b 62 65 67 69 6e | 20 6e 69 6c 20 63 20 72 |" [begin| nil c r|
|00000f70| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00000f80| 20 22 5b 00 2d 08 0b 0e | 2d 1f 7f 2d ff 5d 22 20 | "[.-...|-..-.]" |
|00000f90| 65 6e 64 20 74 20 64 65 | 6c 65 74 65 2d 62 61 63 |end t de|lete-bac|
|00000fa0| 6b 77 61 72 64 2d 63 68 | 61 72 20 31 20 33 32 20 |kward-ch|ar 1 32 |
|00000fb0| 66 6f 72 6d 61 74 20 22 | 5c 5c 5e 25 63 22 20 36 |format "|\\^%c" 6|
|00000fc0| 34 20 22 5c 5c 25 30 32 | 78 22 5d 20 34 20 28 23 |4 "\\%02|x"] 4 (#|
|00000fd0| 24 20 2e 20 33 36 38 36 | 29 20 22 72 22 5d 29 0a |$ . 3686|) "r"]).|
|00000fe0| 28 70 72 6f 76 69 64 65 | 20 28 71 75 6f 74 65 20 |(provide| (quote |
|00000ff0| 6c 70 72 29 29 0a       |                         |lpr)).  |        |
+--------+-------------------------+-------------------------+--------+--------+